program example_checksum

    use seakeeping_module, only: checksum, adler32, read_whole_file
    implicit none
    integer :: i
    character(:), allocatable :: string

    print *, 'Checksum of "pwd" is:'
    call checksum('pwd', i, file='cmd.txt')
    print *, i

    string = read_whole_file('example/time-d000-f060-motion--out.csv')
    print *, adler32(string), len(string)

end program example_checksum
!>  Checksum of "pwd" is:
!> + checksum: pwd > cmd.txt
!>  -1071641683
!>    933480849        1065
